home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / hypercrd / xcmds / shwdlg16.hqx / ShowDialog XCMD 1.6 / background_3411.txt < prev    next >
Text File  |  1989-05-10  |  12KB  |  543 lines
  1. -- background: 3411 from stack: in.6
  2. -- bmap block id: 5345
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on opencard
  8.   push recent card
  9. end opencard
  10.  
  11. on turnOn buttonNo
  12.   lock screen
  13.   hide bg fld "theResult"
  14.   repeat with i=1 to (the number of cd btns -1)
  15.     hide cd btn i
  16.   end repeat
  17.   repeat with counter = 1 to 4
  18.     if buttonNo = counter then
  19.       set the hilite of bg btn counter to TRUE
  20.       show bg fld counter
  21.     else
  22.       set the hilite of bg btn counter to FALSE
  23.       hide bg fld counter
  24.     end if
  25.   end repeat
  26.   set scroll of bg fld buttonNo to 0
  27.   show bg btn "Close Information"
  28.   unlock screen with visual effect dissolve
  29. end turnOn
  30.  
  31. on closeall
  32.   set cursor to watch
  33.   lock screen
  34.   repeat with x = 1 to 4
  35.     hide bg fld x
  36.     set hilite of bg btn x to FALSE
  37.   end repeat
  38.   hide bg btn "Close Information"
  39.   put empty into bg fld "theResult"
  40.   show bg fld "theResult"
  41.   unlock screen with visual effect dissolve
  42. end closeall
  43.  
  44. on closecard
  45.   closeall
  46.   put empty into bg fld "theResult"
  47.   repeat with i=1 to (the number of cd btns -1)
  48.     hide cd btn i
  49.   end repeat
  50. end closecard
  51.  
  52. on showButtons
  53.   repeat with i=1 to the number of cd btns
  54.     show cd btn i
  55.   end repeat
  56. end showButtons
  57.  
  58. on openBackground
  59.   repeat with i=1 to the number of bg flds
  60.     set the lockText of bg fld i to TRUE
  61.   end repeat
  62. end openBackground
  63.  
  64.  
  65.  
  66. -- part 9 (button)
  67. -- low flags: 00
  68. -- high flags: A004
  69. -- rect: left=17 top=120 right=142 bottom=194
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 1
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: XCMD Parameters
  78. ----- HyperTalk script -----
  79. on mouseUp
  80.   if the visible of bg fld (the number of me) then
  81.     closeall
  82.   else
  83.     put the number of me into displayinfo
  84.     turnOn displayinfo
  85.   end if
  86. end mouseUp
  87.  
  88.  
  89.  
  90. -- part 10 (button)
  91. -- low flags: 00
  92. -- high flags: A004
  93. -- rect: left=17 top=150 right=172 bottom=194
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 1
  97. -- font id: 0
  98. -- text size: 12
  99. -- style flags: 0
  100. -- line height: 16
  101. -- part name: Special Notes
  102. ----- HyperTalk script -----
  103. on mouseUp
  104.   if the visible of bg fld (the number of me) then
  105.     closeall
  106.   else
  107.     put the number of me into displayinfo
  108.     turnOn displayinfo
  109.   end if
  110. end mouseUp
  111.  
  112.  
  113.  
  114. -- part 11 (button)
  115. -- low flags: 00
  116. -- high flags: A004
  117. -- rect: left=17 top=90 right=112 bottom=194
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 1
  121. -- font id: 0
  122. -- text size: 12
  123. -- style flags: 0
  124. -- line height: 16
  125. -- part name: Where to use it!
  126. ----- HyperTalk script -----
  127. on mouseUp
  128.   if the visible of bg fld (the number of me) then
  129.     closeall
  130.   else
  131.     put the number of me into displayinfo
  132.     turnOn displayinfo
  133.   end if
  134. end mouseUp
  135.  
  136.  
  137.  
  138. -- part 12 (button)
  139. -- low flags: 00
  140. -- high flags: A004
  141. -- rect: left=17 top=180 right=202 bottom=194
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 0 / 0
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: Examples of this Type
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.   closeall
  153.   showButtons
  154. end mouseUp
  155.  
  156.  
  157.  
  158. -- part 14 (button)
  159. -- low flags: 00
  160. -- high flags: A004
  161. -- rect: left=17 top=270 right=292 bottom=194
  162. -- title width / last selected line: 0
  163. -- icon id / first selected line: 0 / 0
  164. -- text alignment: 1
  165. -- font id: 0
  166. -- text size: 12
  167. -- style flags: 0
  168. -- line height: 16
  169. -- part name: Use ResEdit now...
  170. ----- HyperTalk script -----
  171. on mouseUp
  172.   closeall
  173.   visual effect dissolve
  174.   open "ResEdit"
  175. end mouseUp
  176.  
  177.  
  178.  
  179. -- part 15 (field)
  180. -- low flags: 81
  181. -- high flags: 2007
  182. -- rect: left=203 top=56 right=272 bottom=500
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 0 / 0
  185. -- text alignment: 0
  186. -- font id: 3
  187. -- text size: 10
  188. -- style flags: 0
  189. -- line height: 13
  190. -- part name: 
  191. ----- HyperTalk script -----
  192. on mouseDown
  193.   set the lockText of me to false
  194.   click at the clickLoc
  195.   click at the clickLoc
  196.   put selection into theSelect
  197.   if theSelect = "Click┬áhere┬áto┬ásee it now" then
  198.     go cd "Type 7 XCMD"
  199.     edit script of cd btn "ListDialog 2"
  200.   else if theSelect = "Click here to go there now" then
  201.     go cd "Type 5 XCMD"
  202.     send mouseUp to bg btn ID 9
  203.   else if theSelect = "Click┬áhere┬áfor a demo" then
  204.     If ColorOn() then
  205.       SplashDialog 6747,3,TRUE
  206.     else SplashDialog 5747,3,TRUE
  207.   else click at loc of target
  208.   set the lockText of me to true
  209. end mouseDown
  210.  
  211.  
  212.  
  213. -- part 17 (field)
  214. -- low flags: 81
  215. -- high flags: 2007
  216. -- rect: left=203 top=56 right=272 bottom=500
  217. -- title width / last selected line: 0
  218. -- icon id / first selected line: 0 / 0
  219. -- text alignment: 0
  220. -- font id: 3
  221. -- text size: 10
  222. -- style flags: 0
  223. -- line height: 13
  224. -- part name: 
  225. ----- HyperTalk script -----
  226. on mouseDown
  227.   set the lockText of me to false
  228.   click at the clickLoc
  229.   click at the clickLoc
  230.   put selection into theSelect
  231.   if theSelect = "Click┬áhere┬áto┬ásee" then
  232.     lock screen
  233.     show cd pict
  234.     show cd btn "OK"
  235.     unlock screen with zoom out
  236.   else if theSelect = "Click here for list" then
  237.     lock screen
  238.     show cd fld "theList"
  239.     unlock screen with zoom out
  240.   else if theSelect = "Show Me" then
  241.     lock screen
  242.     unlock screen with zoom out
  243.     ShowDialog 5,5005,51
  244.   else if theSelect = "Click here to go there now" then
  245.     go cd "PICT Maker 2"
  246.     edit script of cd btn "Make PICT Resource"
  247.   else if theSelect = "Click here and go there now" then
  248.     go cd "Special Dialogs"
  249.     send mouseUp to bg btn "Special Notes"
  250.     find "All PICT Dialogs"
  251.   else if theSelect = "Click here for a demo" then
  252.     If ColorOn() then
  253.       CreditsDialog 4747,1040,1041
  254.     else CreditsDialog 4747,1042,1041
  255.   else if theSelect = "Click here to go directly there" then
  256.     find string "Using ResEdit to Make ShowDialog Dialogs"
  257.   else if theSelect = "Click here to print these instructions" then
  258.     put me into container
  259.     put offset("these┬áinstructions",container) into deleteIt
  260.     delete char 1 to (deleteIt + 19) of container
  261.     put "Using ResEdit to Make ShowDialog Dialogs" into prompt
  262.     PrintDoc prompt,container,prompt,times,12
  263.   else click at loc of target
  264.   set the lockText of me to true
  265. end mouseDown
  266.  
  267.  
  268.  
  269. -- part 18 (field)
  270. -- low flags: 80
  271. -- high flags: 2007
  272. -- rect: left=203 top=56 right=272 bottom=500
  273. -- title width / last selected line: 0
  274. -- icon id / first selected line: 0 / 0
  275. -- text alignment: 0
  276. -- font id: 3
  277. -- text size: 10
  278. -- style flags: 0
  279. -- line height: 13
  280. -- part name: 
  281. ----- HyperTalk script -----
  282. on mouseDown
  283.   set the lockText of me to false
  284.   click at the clickLoc
  285.   click at the clickLoc
  286.   put selection into theSelect
  287.   if theSelect = "Click here to go there now" then
  288.     go cd "PICT Maker 2"
  289.     edit script of cd btn "Make PICT Resource"
  290.   else if theSelect = "Click here for a demo" then
  291.     click at loc of target
  292.     TextDialog 5748,geneva,10,"2000,2001,2002",1
  293.   else click at loc of target
  294.   set the lockText of me to true
  295. end mouseDown
  296.  
  297.  
  298.  
  299. -- part 31 (field)
  300. -- low flags: 81
  301. -- high flags: 2007
  302. -- rect: left=203 top=56 right=272 bottom=500
  303. -- title width / last selected line: 0
  304. -- icon id / first selected line: 0 / 0
  305. -- text alignment: 0
  306. -- font id: 3
  307. -- text size: 10
  308. -- style flags: 0
  309. -- line height: 13
  310. -- part name: 
  311. ----- HyperTalk script -----
  312. on mouseDown
  313.   set the lockText of me to false
  314.   click at the clickLoc
  315.   click at the clickLoc
  316.   put selection into theSelect
  317.   if theSelect = "Click here to go there now" then
  318.     go cd "SD Main Menu"
  319.     edit script of cd btn "Who did this?"
  320.   else click at loc of target
  321.   set the lockText of me to true
  322. end mouseDown
  323.  
  324.  
  325.  
  326. -- part 21 (field)
  327. -- low flags: 01
  328. -- high flags: 0004
  329. -- rect: left=86 top=7 right=42 bottom=441
  330. -- title width / last selected line: 0
  331. -- icon id / first selected line: 0 / 0
  332. -- text alignment: 1
  333. -- font id: 151
  334. -- text size: 24
  335. -- style flags: 0
  336. -- line height: 32
  337. -- part name: Title
  338.  
  339.  
  340. -- part 22 (button)
  341. -- low flags: 00
  342. -- high flags: A004
  343. -- rect: left=56 top=313 right=335 bottom=145
  344. -- title width / last selected line: 0
  345. -- icon id / first selected line: 0 / 0
  346. -- text alignment: 1
  347. -- font id: 0
  348. -- text size: 12
  349. -- style flags: 0
  350. -- line height: 16
  351. -- part name: Main Menu
  352. ----- HyperTalk script -----
  353. on mouseUp
  354.   set the cursor to 4
  355.   visual dissolve fast
  356.   go to card "SD Main Menu"
  357. end mouseUp
  358.  
  359.  
  360.  
  361. -- part 23 (button)
  362. -- low flags: 00
  363. -- high flags: A004
  364. -- rect: left=152 top=313 right=335 bottom=216
  365. -- title width / last selected line: 0
  366. -- icon id / first selected line: 0 / 0
  367. -- text alignment: 1
  368. -- font id: 0
  369. -- text size: 12
  370. -- style flags: 0
  371. -- line height: 16
  372. -- part name: Help
  373. ----- HyperTalk script -----
  374. on mouseUp
  375.   doHelp
  376. end mouseUp
  377.  
  378.  
  379.  
  380. -- part 24 (button)
  381. -- low flags: 00
  382. -- high flags: A004
  383. -- rect: left=223 top=313 right=335 bottom=287
  384. -- title width / last selected line: 0
  385. -- icon id / first selected line: 0 / 0
  386. -- text alignment: 1
  387. -- font id: 0
  388. -- text size: 12
  389. -- style flags: 0
  390. -- line height: 16
  391. -- part name: Home
  392. ----- HyperTalk script -----
  393. on mouseUp
  394.   visual barn door close to black
  395.   visual effect iris open to inverse
  396.   visual effect dissolve
  397.   go home
  398. end mouseUp
  399.  
  400.  
  401.  
  402. -- part 25 (button)
  403. -- low flags: 00
  404. -- high flags: A004
  405. -- rect: left=294 top=313 right=335 bottom=358
  406. -- title width / last selected line: 0
  407. -- icon id / first selected line: 0 / 0
  408. -- text alignment: 1
  409. -- font id: 0
  410. -- text size: 12
  411. -- style flags: 0
  412. -- line height: 16
  413. -- part name: Quit
  414. ----- HyperTalk script -----
  415. on mouseUp
  416.   domenu "Quit HyperCard"
  417. end mouseUp
  418.  
  419.  
  420.  
  421. -- part 26 (button)
  422. -- low flags: 00
  423. -- high flags: A004
  424. -- rect: left=366 top=313 right=335 bottom=456
  425. -- title width / last selected line: 0
  426. -- icon id / first selected line: 0 / 0
  427. -- text alignment: 1
  428. -- font id: 0
  429. -- text size: 12
  430. -- style flags: 0
  431. -- line height: 16
  432. -- part name: <-- Go back
  433. ----- HyperTalk script -----
  434. on mouseUp
  435.   visual effect dissolve fast
  436.   pop card
  437. end mouseUp
  438.  
  439.  
  440.  
  441. -- part 27 (button)
  442. -- low flags: 00
  443. -- high flags: 2000
  444. -- rect: left=5 top=307 right=341 bottom=45
  445. -- title width / last selected line: 0
  446. -- icon id / first selected line: 902 / 902
  447. -- text alignment: 1
  448. -- font id: 0
  449. -- text size: 12
  450. -- style flags: 0
  451. -- line height: 16
  452. -- part name: prev
  453. ----- HyperTalk script -----
  454. on mouseUp
  455.   left
  456. end mouseUp
  457.  
  458.  
  459.  
  460. -- part 28 (button)
  461. -- low flags: 00
  462. -- high flags: 2000
  463. -- rect: left=467 top=307 right=341 bottom=507
  464. -- title width / last selected line: 0
  465. -- icon id / first selected line: 26425 / 26425
  466. -- text alignment: 1
  467. -- font id: 0
  468. -- text size: 12
  469. -- style flags: 0
  470. -- line height: 16
  471. -- part name: next
  472. ----- HyperTalk script -----
  473. on mouseUp
  474.   right
  475. end mouseUp
  476.  
  477.  
  478.  
  479. -- part 32 (field)
  480. -- low flags: 01
  481. -- high flags: 0000
  482. -- rect: left=220 top=237 right=303 bottom=480
  483. -- title width / last selected line: 0
  484. -- icon id / first selected line: 0 / 0
  485. -- text alignment: 1
  486. -- font id: 3
  487. -- text size: 12
  488. -- style flags: 0
  489. -- line height: 16
  490. -- part name: theResult
  491.  
  492.  
  493. -- part 29 (button)
  494. -- low flags: 00
  495. -- high flags: A004
  496. -- rect: left=17 top=210 right=232 bottom=194
  497. -- title width / last selected line: 0
  498. -- icon id / first selected line: 0 / 0
  499. -- text alignment: 1
  500. -- font id: 0
  501. -- text size: 12
  502. -- style flags: 0
  503. -- line height: 16
  504. -- part name: Print Documentation
  505. ----- HyperTalk script -----
  506. on mouseUp
  507.   printIt
  508. end mouseUp
  509.  
  510.  
  511.  
  512. -- part 30 (field)
  513. -- low flags: 01
  514. -- high flags: 0000
  515. -- rect: left=462 top=10 right=26 bottom=498
  516. -- title width / last selected line: 0
  517. -- icon id / first selected line: 0 / 0
  518. -- text alignment: 1
  519. -- font id: 3
  520. -- text size: 12
  521. -- style flags: 256
  522. -- line height: 16
  523. -- part name: 
  524.  
  525.  
  526. -- part 16 (button)
  527. -- low flags: 80
  528. -- high flags: A004
  529. -- rect: left=283 top=274 right=295 bottom=434
  530. -- title width / last selected line: 0
  531. -- icon id / first selected line: 0 / 0
  532. -- text alignment: 1
  533. -- font id: 0
  534. -- text size: 12
  535. -- style flags: 0
  536. -- line height: 16
  537. -- part name: Close Information
  538. ----- HyperTalk script -----
  539. on mouseUp
  540.   closeall
  541. end mouseUp
  542.  
  543.